R USERS%ROWTYPE;

CREATE OR REPLACE PROCEDURE P_TESTB
EXIT WHEN VARCURSOR%NOTFOUND;
BEGIN
P_TESTA(VARCURSOR);
BEGIN
其中USERS就是数据库中一个表。在调用的时候只要声明一个该表的ROWTYPE类型就可以了：
SQL-Code:
)
这里我们只返回了USERS表的ID,NAME这两个列，那么调用的时候也必须做相应的修改：

END P_TESTA;
BEGIN
AS
SQL-Code:
与之前不同的是我们声明了一个游标类型的变量TMPCURSOR ，注意TMPCURSOR 的结构必须与存储过程P_TESTA 返回的游标结构一致，否则就会出现错误。同理只要保持两个游标类型结构一致，就可以实现自由调用。

复制代码 代码如下:

CREATE OR REPLACE PROCEDURE P_TESTA (
FETCH VARCURSOR INTO R;
END LOOP;
第二种情况，我们返回的不是表的所有的列，或许只是其中一列或两列，如：

AS
PRESULT OUT SYS_REFCURSOR

VARCURSOR SYS_REFCURSOR;
CREATE OR REPLACE PROCEDURE P_TESTB
LOOP
P_TESTA(VARCURSOR);

SQL-Code:

AS
)
END P_TESTB;
第一种情况是返回的游标是某个具体的表或视图的数据，如：
DBMS_OUTPUT.PUT_LINE(R.NAME);

OPEN PRESULT FOR SELECT ID,NAME FROM USERS;
FETCH VARCURSOR INTO R;
VARCURSOR SYS_REFCURSOR;
DBMS_OUTPUT.PUT_LINE(R.ID);
END P_TESTA;
OPEN PRESULT FOR SELECT * FROM USERS;
EXIT WHEN VARCURSOR%NOTFOUND;

R TMPCURSOR%ROWTYPE;
SQL-Code:
END LOOP;

复制代码 代码如下:

复制代码 代码如下:

CREATE OR REPLACE PROCEDURE P_TESTA (
END P_TESTB;

复制代码 代码如下:

PRESULT OUT SYS_REFCURSOR

AS

BEGIN
LOOP

CURSOR TMPCURSOR IS SELECT ID,NAME FROM USERS WHERE ROWNUM=1;